carambola <- c("abacaxi", "beterraba")
salada <- c("beringela", "batata")
